<Script language="VBScript" runat="server">
	Sub Application_OnStart
        Set Conn = Server.CreateObject("ADODB.Connection")
        Conn.ConnectionString = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & Server.MapPath("lydb/Message.mdb")
        Conn.Open

        Set rs=Conn.Execute ("Select VisitorCount From option1")
            Application("tslt_vnumber")=rs("VisitorCount")
        rs.close
        set rs = Nothing

	    Application.Lock
	    Application("tslt_online")=0
	    Application.Unlock

        Conn.Execute ("delete from ym_online")
        Conn.close
        Set Conn = Nothing
	End Sub

	Sub Session_OnStart
        Session.timeout=20
        session("tslt_HumanSessionId") = Session.SessionId
        Session("tslt_mdbPath")=Server.Mappath("lydb/message.mdb")

	    Application.Lock
	    Application("tslt_online")=Application("tslt_online")+1
	    Application("tslt_vnumber")=Application("tslt_vnumber")+1
	    Application.Unlock

        Set Conn = Server.CreateObject("ADODB.Connection")
        Conn.ConnectionString = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & Session("tslt_mdbPath")
        Conn.Open
        dim rs
        Set rs=server.createobject("ADODB.RECORDSET")
        rs.open "Select * From option1",Conn,1,2
            rs("VisitorCount")=Application("tslt_vnumber")
            rs.update
        rs.close
        set rs = Nothing
        Conn.close
        Set Conn = Nothing
	End Sub

	Sub Session_OnEnd
	    Application.Lock
	    Application("tslt_online")=Application("tslt_online")-1
	    Application.Unlock

        Set Conn = Server.CreateObject("ADODB.Connection")
        Conn.ConnectionString = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & Session("tslt_mdbPath")
        Conn.Open

        Conn.Execute ("delete from ym_online where HumanSessionId = '"&session("tslt_HumanSessionId")&"'")

        Conn.Execute ("update ts_userinfo set friendtemp='' where username='"&session("tslt_username")&"'")

        Conn.close
        Set Conn = Nothing
	End Sub
</Script>
